home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / mebbsrip.lha / mebbsnet / rexx / welcome.REXX
OS/2 REXX Batch file  |  1994-09-28  |  1KB  |  54 lines
  1. /* detect RIP by Larry Cloud M3001*/
  2.  
  3. signal on ERROR
  4. parse arg LineNumber
  5. options results
  6. DoorName = "CheckForRip";author = "Larry Cloud"
  7. if( ~show( 'l', "mebbsarexx.library" ) )then do
  8.  if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
  9.   say "Could not open library"
  10.   exit 10
  11.  end
  12. end
  13. call blank;string="Checking for a RIP terminal program...";call output;string="!";call output
  14. string="Please press return";length=20;call input;rip=0;x=upper(typed)
  15. if left(x,8)="RIPSCRIP" then rip=1
  16. string=""||d2c(12);call output
  17. if rip=1 then do
  18.  string="mebbsnet:text/welcome.rip";call readfile doorname,linenumber,string
  19.  string="You should set your graphics type (Main Menu, Adjust Parameters) to 3."
  20.  call output
  21.  string="Please press return...";call getkey;string=d2c(12);call output
  22. end
  23. if rip=0 then do
  24.  string="mebbsnet:text/welcome.text";call readfile doorname,linenumber,string
  25. end
  26. signal getout
  27.  
  28. GETKEY:
  29. call hotkey doorname,linenumber,string
  30. hot=result
  31. return
  32.  
  33. INPUT:
  34. call prompt doorname,linenumber,string,length
  35. typed=result;call cdetect doorname,linenumber
  36. carrier=upper(result);if carrier = "NO CARRIER!" then signal error
  37. return
  38.  
  39. OUTPUT:
  40. call message doorname,linenumber,string,1
  41. return
  42.  
  43. BLANK:
  44. string = " ";call output;return
  45.  
  46. GETOUT:
  47. call blank
  48. call Exit_Door DoorName,LineNumber
  49. exit 0
  50.  
  51. ERROR:
  52. call Exit_Door DoorName,LineNumber
  53. exit 0
  54.